RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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: 12-98-88 93:83:98 DISK$V nen TER: CRUNOFF. SRCIJPAGE .BLI;1 yage (1). 


$ 1 001 ZTITLE ‘Processes nat ats Aes , RM directives’ : 
; § 0 ¢ MODULE PAGE ( IDENT ; 
3 P 00 ZBLI $$320. 4m te MODE (EXTERNAL = long_relative ; 
foe NONEXTERNAL = Long_relatives) ; 
; 5 0005 )s ; 
3 8 BS : BEGIN : 
: 8 ale RSS SESS TITS Terie iT T STITT TILT T TTT IT TITTTLITiLTiTiTiTiTititit ; 
: 9 009 1 !* ; 
;: 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
3; (1 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . | : 
; \¢ oe ! ;t ALL RIGHTS RESERVED. * | : 
; . nd ° 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED wet A LICENSE AND MAY BE USED AND sores * ’ 
; 15 0915 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
: 16 0016 1 !* INCLUSION OF THE ABOVE 2 gid NOTICE. THIS SOFTWARE OR ANY OTHER * | . 
; 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHER WISE MADE AVAILABLE TO ANY ®* ; 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: 19 0019 1 !* TRANSFERRED. * . 
; 20 0020 1 is « : 
; 21 0021 1 !* THE gO ie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
; 22 Bos¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; 33 00¢3 1 is CORPORATION, * | : 
bd w eo | e 
$ $2 0095 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ‘ 
: 6 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
7 > a7 0027 1 I * : 
;- 2 0028 1 !« * : 
: 29 BOSS VL eee eRe eee ERRATA AAA A AAA A AEE TE AEE A EERE AERA AAAAATAAAAREREEEEE Ps 
3 0 0030 1! : 
3 1 0031 1 i++ : 
; ; it t4 ; FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
; 34 0034 1 ! ABSTRACT: : 
; 35 0035 1! ’ : 
; s] Boe ! Processes .PAGE SIZE, .LEFT MARGIN, and .RIGHT MARGIN commands. : 
; & 0038 1 ! ENVIRONMENT: Transportable : 
; 2 0039 1! : 
2 40 0040 1 ! AUTHOR: R.W. Friday CREATION DATE: June, 1978 | . 
>; (4 0041 1! : 
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es 
froresses PS, .LM, and .RM directives 1e~gen~ 1386 01:43:63 VAX-11 Bliss-32 V4.0-742 Page 2. 
Revision History 14-Sep-1984 13:07:58 DISKSVMSMASTER:CRUNOFF.SRCJPAGE.BLI;1 (2), 
a8 XSBTTL "Revision History’ 
4 i MODIFIED BY: 
a9c6 1 i 008 KFA00008 Ken Alden 06-Jul-1983 
047 1! When GETNUM does not receive a vous for .RM, the 
Bes : right margin will now get set to 70 (default). 
$050 1 i 007 REM00007 Ray Marshall 20-April-1983 
0051 1! Retrofit cocousl ing of page size and erent margin that was 
Boas : done for DSRPLUS to now be in affect for DSR. 
0054 1! 006 KAD00006 Keith Dawson 07-Mar-1983 
6055 1! Global edit of all modules. Updated module names, idents, 
boas : copyright dates. Changed require files to BLISS library. 
0058 1 i-- 
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059 1 XSBTTL ‘Module Level Declarations’ | 
06 TABLE OF CONTENTS: 
06 i INCLUDE FILES: 
06 i 
06 
ARY '"NXPORT: KPORT®; ! XPORT Library 
IRE *REQ:RNODEF' ! RUNOFF variant definitions 
U DSRPLUS XTHEN 
U ARY "REQ:DPLLIB'; ! DSRPLUS BLISS Library 
A 


LIBR 

REQU 

Z1F 

Helse 
4208 RARY ‘REQ:DSRLIB'; ! DSR BLISS Library 
! 


EXTERNAL REFERENCES: 


OWN 
rm_temp : INITIAL (0); 


ee ewe wee lof ololelololololololololelololololololeloleololelelolelolololq! 
DWONOUES WN $0 ODNAOU EWN 0 ODNOUES WN SO OONOUES WHO” 
a a kk ad 


EXTERNAL 
ca : gca_definition, 
ra : fixéd_string, 
nmlst : number_List, 
numprm : numprm_define, 
phan : phan_definition, 
sca : sca_definition; | 
EXTERNAL LITERAL | 
rnfbms, 
rnfinm;: | 
EXTERNAL ROUTINE | 
erna, 
glnm; 
' 
OWN STORAGE: 


MEUM (OOO NAUSWN HOODOO S WN O0OON 
WWIAWAIAANAWw 
MEW $0 ODNOUS WN $0 OD NOU EWN $0 DOONAN WN (0 OONOAUE WR SO ODONOUESWN HO 
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109 00:00 09 09 08 SI NII SSS SSN NNO AAA AAAA AAO SB BB BREED 
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Processes .PS, .LM, and .RM directives 16-Sep-1984 7:25:25 VAX-11 Bliss- 
Module Level beclarations 1o-808- 1 3B 03:83:98 DISKSVMSMASTE 


GLOBAL ROUTINE page (handler_code) : NOVALUE = 


'¢ 


FUNCTIONAL DESCRIPTION: 

See the ABSTRACT, above. 
FORMAL PARAMETERS: 

handler_code - indicates which command is to be processed. 
IMPLICIT INPUTS: 


numprm = contains a number as processed by getnum. 


IMPLICIT OUTPUTS: None 

ROUTINE VALUE: 

COMPLETION CODES: None 

SIDE EFFECTS: None 
BEGIN 


SELECT .handler_code OF 
SET 


Ch_right_margin, h_left_margin] : 
1? NOT yen polult ° 
THE 
; Ignore command if number is in error. 
RETURN; 
Ch_right_ margin] : 
BEGIN . 


IF_.nmum_sign NEQ 0 
THEN | 


Adjust existing margin, + or -. 
BEGIN 


i Save adjustment value if it is positive. 
Otherwise, reset it to 0. 


iF .mum_value GTR 0 

THEN 
rm_temp = .num_value 
rm_temp = 0; 


- num_value = .num_value + .sca_rm; 


V4.0-742 Pa 
: CRUNOFF ..SRCJPAGE.BLI;1 


ge 5. 


Ch ize) : 
ce 


: Turn on paging unless /NOPAGING. 
phan_paging = .phan_cmd_paging; 


2 
PAGE Processes .PS, .LM, and .RM directives 18-56 $1984 01:25:25 VAX-11 Bliss-32 V4.0-742 Pa 
v04-000 Module Level beclarations 12-8 08-1 3be 3 :57:$8 DISKSVMSMASTER: CRUNOFF.SRCJPAGE.BLI;1 (4) 
: 189 $585 ; IF Length EQL 0 | 
3 -num_ len 
: 16 0589 a 
; % 0290 4 BEGIN 
; «164 0291 4 sca_rm = 70; ‘Current default 6-Jul-1983 (KFA) 
; 19? 8 3 4 RETORN; 
: 167 0294 
; 198 0295 ; 
Bed BP lpaltatelbeigey ey 
; enum value LEQ .sca_im) OR (.num_value GTR ) 
; \7¢ 6 99 3 THE 
; 7 0300 4 BEGIN 
; (174 0301 4 : 
; Ve 0 o¢ 4 ! Bad margin. 
3; 76 0303 4 ! 
s tre 0304 4 erma (rnfbms, false); 
; «4178 0305 4 RETURN; 
3; 179 8308 4 END 
: 180 307 3 ELSE 
: «(181 0308 3 sca_rm = .num_value; 
3 136 0309 3 
; 0310 2 END; 
: «(184 0311 2 . 
; «#185 Belg Ch_left_margin] : 
: «6186 031 BEGIN 
: «(187 0314 
; «4188 0315 IF .mum_sign NEQ 0 
> «189 0316 3 THEN 
; 190 0317 3 ‘ 
3: «191 0318 3 ! Adjust existing margin, + or -. 
3 136 0319 3 ! 
; 19 B59 ; num_value = .num_value + .sca_\m; 
3 194 0321 
; «6195 B36 3 IF _ .mum_value GEQ .sca_rm 
: 196 03 3 THEN 
: 197 0324 ' 
: 198 0325 ! Bad margin. 
3; 6199 8359 ! 
; 200 03 4 BEGIN 
: 201 0328 4 erma (rnfbms, false); 
; 4 0329 4 RETURN; 
; 7 8 0 4 END 
: 505 0832 neg l 
3 sca_lm = .num_value; 
3 $335 " Pe 
3 0334 END; 
3 0335 
; a i 
8320 
3 03 
; 03 
: 03 
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i Get parameters. 
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v04-000 Module Level declarations 18-08-1382 03:83°98 DISKSVMSMASTER: CRUNOFF .SRCJPAGE.BLI;1 . (4) | 
17 44 : 
18 45 ginm (2); 
0 IF_.nmmlst_count GEQ 1 
1 THEN 
é BEGIN 
4 : First parameter defines Lines per mane. 
§ CASE -nmist_descr (1) FROM 0 TO 4 OF | 
8 j 
; Cnm_bad, nm_null) : 
31 Use current value if input was bad or not supplied. 
: nmist_value (1) = .phan_Llines; 


Cnm_plus, nm_minus] : | 
Adjust value if adjustment was specified, + or -. 
nmist_value (1) = .nmlst_value (1) + .phan_Llines; 

Crm_uns igned] : 

Nothing to do if an unsigned nunber. 
0; 

TES; 

IF .nmlst_value (1) LSS phan_min_page_length 
THEN | 


DANII SNS AAA AAA AAA AIM & 
ODONAUNE WN O OONO UF WR OVONO UNE WO OOnNO 


: Page is too short. 


POPOPOPORIMONIPONININPONYNONONPO No No nono nonononofnonofnononuponopgonsd 
fw el we eee) ww wee ewe wwf ololololololelolololololololeololeloleoleololeololejela) 
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fore t al al ab ah sh ah Ab dh Ab die tee et ee et ee ee ee a ee | 
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0 ! 
81 erma (rnfinm, false) 
S ELSE 
8 ! 
rf Set new page Length. 
86 phan_Llines = .nmlst_value (1); | 
88 END; 
89 : : 
$09 Process page width, if supplied. 
65 039¢ IF _.nmlst_count GEQ 2 | 
66 9 
67 394 BEGIN 
68 395 : , 
+4 Bene Second parameter defines page width. 
71 338 CASE .nmlst_descr (2) FROM 0 TO 4 OF 
y e SET 
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D 


Cnmtbad, nmnull) : 


Use current value if input was bad or not supplied. 
nmist_value (2) = .gca_lwidth; 


Cnm_plus] : 


S 
Coo 


! Increase page width. 
nmist_value (2) = .nmlst_value (2) + .gca_lwidth; 


Cnm_minus] : 


CO O90 O09 COCD OO “III 
| ak ee del eee ee 
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: Decrease page width or right margin. 
BEGIN 


; See if adjustment value is same as saved value. 


THEN 
! If so, use it to pull in the right margin only. 


BEGIN 
scairm = .sca_rm + -nmlst_value (2); 


iF -rm_temp + .nmlst_vaiue (2) EQL 0 
' 


; Do not change setting of page width. 

nmist_value (2) = .gca_lwidth; 

Reset saved value to zero. 

rm_temp = 0; 

N 
ELSE | 

Decrease page width. 

nmist_value (2) = .nmlst_value (2) + .gca_lwidth; 
END; 


Crm_uns igned) : 


: Nothing to do if just a numter. 
0; 


-nmist_value (2) GTR 150 
HEN 
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Bad margin specification. 
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5 
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erma (rnfbms, false) 
gca_lwidth = .nmlst_value (2); 


! End of 

TITLE 

- IDENT 

-PSECT 

00000000 00000 RM_TEMP:.LONG 
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PAGE 
PAGE Processes .PS, .LM, and .RM directi 
\vO4-0008 ic 


SOWNS ,NOEXE,2 

0 

GCA, IRA, NMLST 

NUMPRM, PHAN, SCA 

RNFBMS, RNFINM, ERMA 

GLNM 

SCODES,NOWRT,2 

PAGE, Save R2,R3,R4,R5,R6,R7,R8,R9 
ERMA. R9 


GCA+140, RB 
RM_TEMP. R7 


NMLST+8, R3 
HANDLER CODE, R2 
R2, #109 

Re, #177 

NUMPRM, 2$ 

R2, #177 

9$ 

NUMPRM+8 
NUMPRM+4, RO 

RO, RM_TEMP 

4$ 


RM_TEMP 
@SCA+120, NUMPRM+4 
NUMPRM# 12 

#70, aSCA+120 


PRM+4, RO 
Ree @SCA+116 


4$ 


8 
(4). 


; 0230 
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PAGE Processes .PS M, and .RM directives 16-Sep-1 VAX-11 Bliss-32 V4.0-742 9 PAR 
v04-000 Module Level beclarations 14-Sep O19 38 or: §3: $3 DISKSVMSMASTER: CRUNOFF .SRCJPAGE. BLI;1 page (4) | vOé 

00000096 = &F 50 01 3 8S: CMPL , #150 : | ; 

00 85 ES 06 boone Bove asca+120 + 0308 

. + ; : 

0000006D &F 0 Di 09 9$ CmPL R #369 : 0312 ; 

06 AS OD 99 TSTL NUMPRA+B : ans! ; 

04 1 9C BEQL «108 : : 

64 Fo eS CC 9 ADDL2 @SCA+116, NUMPRM+4 : 0320) ; 

00 BS 64 D1 OA 10$ CMPL NUMPRM+4. @SCA+120 > 0322 | ; 

FC OBS Be AB SODA Ser CPW ANeS. SSCACTIO + 0332 | 

° + 5 Py 

000000A8 BF $3 D4 QOAC 11$ CMPL = R2, #168 : 0336 ; 

07 13 0008 BEQL «128 F ; 

04 00085 RET : : 

24 Bb 28 as DO 000B6 12:  MOVL #$PHAN+44, @PHAN+40 + 0341 ; 

02 DD 00088 PUSHL # + 0345 F 

000000006 EF 01 FB 00BD CALLS #1, GLNM : ; 

FB AS DS 000C4 TSTL § NMLST + 034 ; 

34 15 000C7 BLEG 18$ : ; 

04 00 009c C3 CF 000C9 CASEL NMLST+164, #0, #4 : 0353 ; 

0011 0011 0016 000A OOOCF 13$: <WORD 14$-13$,- ; : 

000A 00007 16$-13$.- : ; 

15$-13$,- : § 

15$-13$.- : ; 

14$-13$ : ; 

FC OAS 00 86 00 00009 14$:  MOVL $$ @PHAN+4, NMLST+4 + 0360 ; 

05 11 OOODE BRB 16$ : ; 

FC A3 00 B6 CO OOOEO 15$: ADDL2 eater a le 3; 0366 PY 

0D FC A3 D1 OOOES 168: CMPL  NMLST+4 : 0376 ; 

0D 18 000E9 BGEQ 17$ : : 

7E D4 OOOEB CLRL =(SP) + 0381 F 

000000006 BF DD OOED PUSHL #RNFINM : ; 

69 02 FB 000F CALLS MA : ; 

05 11 00086 BRB : ; 

00 86 FC A3 DO 0O0F8 17$:  MOVL  =NMLST+4, @PHAN+4 : 0386 : 

02 FB AS D1 OOOFD 188: CMPL  NMLST, #2 : 0392 : 

45 19 00101 BLSS F ; 

04 00 QOAO C3 CF 00103 CASEL NMLST+168, #0, #4 : 0398 ; 

0010 0022 0026 000A 00109 19$ WORD $-19$,- : : 

000A 00111 $-19$,- ; : 

2$-19$.- : 3 

1$-19$,- 3 g 

0$-19$ : ; 

63 00 88 b0 113 20$:  MOVL $aGCA+140, NMLST+8 > 0405 : 

1 1 1 BRB : : 

50 67 63 €1 00119 21$:  ADDL3 NMLST+8, RM_TEMP, RO + 0421 : 

0¢ iF 0011 BNEQ : : 

00 85 63 CO OO11F ADDL2 NMLST+8, aSCA+120 + 0427 ; 

63 00 88 DO 001 ; MOVL acch+lé 146, NMLST+8 > 0431 ; 

67 D4 001 CLRL TEMP > 0435 ; 

04 11 4 9 BRB . > 0421 : 

00 8g CO 00128 238: ADDL2 SGCA+I40, sit st+8 > 0441 : 

00000096 D1 OO12F 238: CMPL NAL ST#8, : 0453 ; 

C 15 001 BLE : : 

E D4 00138 248: CLRL =. = (SP) > 0458 : 

000000006 BF DD O013A PUSHL §#RNFBMS ; : 

9 2 FB 00140 CALLS #2, ERMA : 3 
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PAGE Processes .PS M, and .RM directives 1b-5¢ Sep-1984 
v04-000 Module Level beclarations 1 300-1 3b 9}: 57: $3 
04 00143 RET 
00 B68 63 B0 144 $73: MOVL NMLST+8, @GCA+140 
4 148 26$: RET 
; Routine Size: 329 bytes, Routine Base: S$CODE$ + 0000 
; 39 0466 1 
; 40 0467 1 END ! End of module 
41 0468 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SOWNS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, 
; SCODES 325 NOVEC,NOWRT, RD, EXE,NOSHR, LCL REL, 
3 Library Statistics 
re eo ORI SE. omeg Symbols -------- Pages 
: File Total Loaded Percent Mapped 
! _$255$DUA28:(SYSLIBIXPORT.L32;1 590 0 0 252 
; ~$538$pUAD8: : (RUNOFF .SRCJDSRLIB.L32;1 1248 34 2 86 


COMMAND QUALIFIERS 


0:00.1 
00:00.3 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PAGE/OBJ=OBJ$:PAGE MSRC$:PAGE/UPDATE=(ENHS: PAGE ) 


Size: 329 goge + 4 data bytes 
Run’ Time 8 708.4 

Elapsed Tees 225.9 

Lines/CPU Min 362 
Lexenes/CPU-Rin: 25216 

ponory Used: 85 pages 

Compi ation Complete 


OOOO es 


PAN 


< 
R 


ENT CORPORATION 
ND PROPRIETARY 


P 


307 AH-BT13A-SE 


3 DI M 
VAX/VMS V4.0 CO A 


